home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / tools / rb / jlcd100.lzh / JLCD / SAMP / JLCDV.s < prev    next >
Text File  |  1997-12-28  |  2KB  |  124 lines
  1.     .include    tnb.mac
  2.     .include    doscall.mac
  3.     .include    iocscall.mac
  4.     .include    JLCDCALL.mac
  5.  
  6. HEAD1 = '*JLC'
  7. HEAD2 = 'V000'
  8.  
  9. StartStatio:*******************常駐部
  10. SS:
  11.     .dc.l    -1            *DEV用ヘッダ
  12.     .dc.w    $8000.w            *
  13.     .dc.l    STRR            *
  14.     .dc.l    ETYP            *
  15. dhead:    .dc.l    HEAD1,HEAD2        *
  16. STRA5:    .dc.l    $0.l            *
  17. STRR:    move.l    a5,STRA5        *
  18.     rts                *
  19. ETYP::
  20.     movem.l    d0/a5,-(a7)
  21.     movea.l    STRA5(pc),a5
  22.     bsr    ETYPSUB
  23.     move.b    d0,$3(a5)
  24.     lsr.w    #8,d0
  25.     move.b    d0,$4(a5)
  26.     movem.l    (a7)+,d0/a5
  27.     rts
  28. ETYPSUB:
  29.     tst.b    $2(a5)            *エントリルーチン
  30.     beq    ETYP_ROUTINE        *
  31.     move.w    #$5003,d0        *そのほかはエラー
  32.     rts
  33.  
  34. EndStatio:*******************常駐部
  35.  
  36. ETYP_ROUTINE::*--------------------------------------------------------
  37.     *
  38.     *    DEVICE=(ETYP)より呼ばれる常駐
  39.     *
  40.     movem.l    d1-d7/a0-a6,-(sp)
  41.     *==== 白窓君はある？
  42.     JLCD    _JLCD_VER            * JLCD チェック
  43.     cmpi.w    #$4A4C,d0
  44.     beq    @f
  45.     *Print    LRNW(pc)
  46.     bra    9f
  47. @@:
  48.     *==== コマンドラインチェック
  49.     movea.l    18(a5),a2
  50. @@:    move.b    (a2)+,d0            **ファイル名スキップ
  51.     bne    @b
  52.     *==== スイッチ
  53.     move.b    (a2),d0                **スイッチ
  54.     bne    @f
  55.     *=========== 初期化のみ
  56.     moveq    #-1,d2                * チェック
  57.     JLCD    _JLCD_INIT
  58.     tst.l    d0
  59.     bne    9f                * 使っている
  60.     *---初期化、時計に
  61.     moveq    #0,d2                * 時計に
  62.     JLCD    _JLCD_INIT
  63.     bra    9f
  64. @@:
  65.     movea.l    a2,a1
  66. 1:    move.b    (a1)+,d0
  67.     bne    1b
  68.     tst.b    (a1)
  69.     beq    7f
  70.     move.b    #' ',-1(a1)
  71.     bra    1b
  72. 7:
  73. 8:    *--- 表示
  74.     move.l    #$80000000,d2            * CLR して (0,0) から
  75.     move.l    #300,d3                * 3秒
  76.     movea.l    a2,a1
  77.     JLCD    _JLCD_PRINT2
  78. 9:
  79.     movem.l    (sp)+,d1-d7/a0-a6
  80.     move.l    #EndStatio,$e(a5)
  81.     moveq    #$00,d0
  82.     rts
  83.  
  84. init::*---------------------------------------------------------------
  85.     *
  86.     *    コマンドライン実行
  87.     *
  88.     Print    LR1(pc)
  89.     *==== 白窓君はある？
  90.     JLCD    _JLCD_VER
  91.     cmpi.w    #$4A4C,d0
  92.     beq    @f
  93.     Print    LRNW(pc)
  94.     DOS    _EXIT
  95. @@:
  96.     tst.b    (a2)+        *スキップ
  97.     bne    @f
  98.     *--- 初期化のみ
  99.     moveq    #-1,d2
  100.     JLCD    _JLCD_INIT
  101.     tst.l    d0
  102.     bne    9f                * 使っている
  103.     *---初期化、時計に
  104.     moveq    #0,d2
  105.     JLCD    _JLCD_INIT
  106.     bra    9f                * 使っている
  107. @@:
  108.     *--- 表示
  109.     move.l    #$80000000,d2            * CLR & (0,0) から
  110.     move.l    #300,d3                * 3秒
  111.     movea.l    a2,a1
  112.     JLCD    _JLCD_PRINT2
  113. 9:
  114.     DOS    _EXIT
  115.  
  116.  
  117.  
  118. LRNW:    .dc.b    ' 白窓君 どらいばー JLCDDRV.x が登録されていません。',$0d,$0a,0
  119. LR1:    .dc.b    'X68k <白窓君> EASY MESSAGE VIEWER Version 0.00 Copyright 1997 TNB製作所'
  120. CRLF:    .dc.b    $0d,$0a,0
  121.     .even
  122.  
  123.     .end    init
  124.